home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_35_End Save Selection Behavior.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  2.4 KB  |  95 lines
  1. property pMemberNormal, pMemberRollover, gowhere, soundMember, soundChannel, loops, pCursorChange, pCursorChoice, pSpriteMember, pAddNumber
  2. global gphotolist
  3.  
  4. on getBehaviorDescription me
  5.   return "Rollover, Sound and  goto Marker" & RETURN & RETURN & "Just add to Sprite and fill-in Properties"
  6. end
  7.  
  8. on getBehaviorTooltip me
  9.   return "Use with any sprite member."
  10. end
  11.  
  12. on getPropertyDescriptionList me
  13.   xlist = [:]
  14.   addProp(xlist, #soundMember, [#comment: "Sound to play", #format: #sound, #default: VOID])
  15.   addProp(xlist, #soundChannel, [#comment: "Sound channel", #format: #integer, #default: 3, #range: [2, 3, 4]])
  16.   addProp(xlist, #loops, [#comment: "How many loops:", #format: #integer, #default: 1, #range: [1, 2, 3, 4, 5, 6, 7, 8]])
  17.   addProp(xlist, #pCursorChoice, [#default: 1, #format: #boolean, #comment: "Do you want a cursor change"])
  18.   addProp(xlist, #pCursorChange, [#format: #cursor, #comment: "Please choose cursor", #default: 280])
  19.   addProp(xlist, #pSpriteMember, [#comment: "Type in which sprite number will roll:", #format: #integer, #default: VOID])
  20.   addProp(xlist, #pAddNumber, [#comment: "Type in which variable:", #format: #string, #default: VOID])
  21.   return xlist
  22. end
  23.  
  24. on spriteRoll
  25.   rollSprite = pSpriteMember
  26.   if rollSprite > 0 then
  27.     sprite(rollSprite).memberNum = sprite(rollSprite).memberNum + 1
  28.   else
  29.     nothing()
  30.   end if
  31. end
  32.  
  33. on spriteLeave
  34.   unrollSprite = pSpriteMember
  35.   if unrollSprite > 0 then
  36.     sprite(unrollSprite).memberNum = sprite(unrollSprite).memberNum - 1
  37.   else
  38.     nothing()
  39.   end if
  40. end
  41.  
  42. on changeCur
  43.   if pCursorChoice = 1 then
  44.     cursor(pCursorChange)
  45.   else
  46.     cursor(0)
  47.   end if
  48. end
  49.  
  50. on choosePic
  51.   gphotolist.add(pAddNumber)
  52. end
  53.  
  54. on playMySound me
  55.   soundStatus = sound(soundChannel)
  56.   if soundStatus = 4 then
  57.     sound(soundChannel).play()
  58.   else
  59.     sound(soundChannel).play([#member: soundMember, #loopCount: loops])
  60.   end if
  61. end
  62.  
  63. on mouseUp me
  64.   playMySound()
  65.   endSaves()
  66.   cursor(0)
  67. end
  68.  
  69. on mouseEnter me
  70.   changeCur()
  71. end
  72.  
  73. on endSaves
  74.   if gphotolist.getPos(pAddNumber) > 0 then
  75.     gphotolist.deleteOne(pAddNumber)
  76.     sprite(pSpriteMember).member = member("End_Save")
  77.   else
  78.     gphotolist.add(pAddNumber)
  79.     sprite(pSpriteMember).member = member("End_SaveIndicator")
  80.   end if
  81.   updateStage()
  82. end
  83.  
  84. on mouseLeave
  85.   cursor(0)
  86. end
  87.  
  88. on enterFrame me
  89.   if gphotolist.getPos(pAddNumber) > 0 then
  90.     sprite(pSpriteMember).member = member("End_SaveIndicator")
  91.   else
  92.     sprite(pSpriteMember).member = member("End_Save")
  93.   end if
  94. end
  95.